home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
wcl-21.lha
/
wcl-2.1
/
src
/
main
/
clx.lisp
next >
Wrap
Lisp/Scheme
|
1992-09-10
|
817b
|
22 lines
;;; (C) Copyright 1990-1992 by Wade L. Hennessey. All rights reserved.
(defun lmain ()
(setf *root-directory* (or (probe-file #.(compute-root-directory))
(find-root-directory)))
(setf *default-libraries* '(:cl :clx))
(format t ";;; WCL Development Environment for SPARC running SunOS~%")
(format t ";;; Common Lisp ~A library built at ~A~%"
*cl-version* *cl-build-date*)
(format t ";;; Compiler ~A library built at ~A~%"
*compiler-version* *compiler-build-date*)
(format t ";;; CLX ~A library built at ~A~%"
xlib::*clx-version* xlib::*clx-build-date*)
(print-copyright)
(format t ";;; Remember to avoid gcc when using clx:~%")
(format t ";;; (progn (lisp::initialize-compiler) ~
(setf *target-machine* *sparcstation-cc*))~%")
(load-init-file)
(repl))